home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_026_19xx_-_de_Disk_1_of_2_Side_B.d64 / [tr]finger chart (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  69 lines
  1. 5 ifa=0thena=1:load"ml r[213]",8,1
  2. 6 kk$="      press any key to continue         "
  3. 9 k$="jkl:asdfghiuiopnm./zxcvbqwertyuiop@*^"
  4. 10 poke 53281,1:poke53280,1
  5. 11 goto5000
  6. 2001 print"[142][147]     left hand [205]   right hand       "
  7. 2002 print"       1 [149]2 3 [159]4 5[144][205]6 [144]7 [149]8 9 [159]0 + - \"
  8. 2009 print"       [144] q [149]w e [159]r t[144][205]y [144]u [149]i o [159]p ; @ *  ^"
  9. 2010 print"        [144] a [149]s d [159]f g[144][205]h [144]j [149]k l [159]: ; ="
  10. 2015 print"   [144]shift[146]  z [149]x c [159]v b[144][205]n [144]m [149], . [159]/ shift"
  11. 2017 print"              space bar     ":return
  12. 2018 print"[155]    [213][192][201]3[155]                [149]6[155][213][192][201]"
  13. 2019 print"  [149]2[155][213][179] [221]                  [221] [171][201]9[155]"
  14. 2020 print"   [221][221][160][171][201]                [213][179] [221][221]"
  15. 2021 print"   [221][221] [221][221][159]4[155]              [144]7[155][221][221] [221][221]"
  16. 2022 print" [144]1[155][213][179][221] [221][221]                [221][221] [221][171][201][159]10[155]"
  17. 2023 print"  [221][221][221] [221][221]                [221][221] [221][221][221]"
  18. 2024 print"  [221]    [171][192][201]5          6[155][213][192][179]    [221]"
  19. 2025 print"  [221] l   [213][203]            [202][201]  r  [221]"
  20. 2026 print"  [221]     [221]              [221]     [221]":return
  21. 2027 print"           [159]t[144]y[159]pe [146][159]r[149]i[159]te"
  22. 2028 print"        [159]b[144]y[159]: [146][159]t[144]ho[144]ma[149]s [146][144]u[149]si[159]t[144]alo"
  23. 2030 print"[151]   hit any key to go to program"
  24. 2039 poke198,0
  25. 2040 getg$:ifg$=""then2040
  26. 2050 print"[147]load";chr$(34)"[tr]load me"chr$(34);",8"
  27. 2056 sys828:new
  28. 5000 gosub2001:print"lets practice the fingering":print"of the home keys[144]"
  29. 5001 print"place little finger of the left hand    on the ";chr$(34);"a";chr$(34);" key."
  30. 5002 print"[149]put the left ring finger"
  31. 5003 print"on the ";chr$(34);"s";chr$(34);" key."
  32. 5012 print"put the left middle finger
  33. 5013 [153]"on the ";[199](34);"d";[199](34);" key."
  34. 5014 [153]"openput the left index finger
  35. 5015 print"on the ";chr$(34);"f";chr$(34);" key."
  36. 5025 print"put your left thumb on the ";chr$(34);"space bar";chr$(34);"."
  37. 5030 printkk$:gosub9000
  38. 5035 gosub2001
  39. 5041 print"[159]put the right little finger"
  40. 5043 print"on the ";chr$(34);":";chr$(34);" key."
  41. 5044 print"put the right ring finger"
  42. 5045 print"on the ";chr$(34);"l";chr$(34);" key."
  43. 5046 print"[149]put the right middle finger"
  44. 5047 print"on the ";chr$(34);"k";chr$(34);" key."
  45. 5048 print"[144]put the right index finger"
  46. 5049 print"on the ";chr$(34);"j";chr$(34);" key."
  47. 5050 print"put your right thumb on the ";chr$(34);"space bar";chr$(34);"."
  48. 5054 printkk$:gosub9000
  49. 5055 print"time to actually press keys..."
  50. 5060 forx=1tolen(k$)
  51. 5061 gosub2001
  52. 5062 ss$=mid$(k$,x,1):print"using the chart press the ";chr$(34);ss$;chr$(34);" key."
  53. 5063 getgt$:poke204,asc(gt$+chr$(0))
  54. 5064 ifgt$=""then5063
  55. 5065 ifgt$=ss$thenprint"very good!!":goto6000
  56. 5066 gosub2001:gosub2018:print"you pressed the ";chr$(34);gt$;chr$(34);" key"
  57. 5067 wg=wg+1
  58. 5068 print"it should have been the ";chr$(34);ss$;chr$(34);" key."
  59. 5070 print"to try it again...":printkk$:gosub9000:goto5061
  60. 6000 next
  61. 7000 if wg=0 then 7012
  62. 7001 print"you had ";wg;" incorrect!"
  63. 7002 print" do you want to try it again (y/n)"
  64. 7003 getag$:ifag$=""then7003
  65. 7005 ifag$="y"thenrun
  66. 7010 goto2027
  67. 9000 getff$:ifff$=""then9000
  68. 9001 return
  69.